home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideo Library / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-03-04  |  16KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>7498</cardID>
  8.     <listID>2062</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackhide menubarif the userLevel < 4 then set userLevel to 4end openStackon chooseYearput "1990,1999,1998,1997,1996,1995,1994,1993,1992,1991,;" &¬¨"1980,1989,1987,1986,1985,1984,1983,1982,1981,;" &¬¨"1970,1979,1978,1977,1976,1975,1974,1973,1972,1971,;" &¬¨"1960,1969,1968,1967,1966,1965,1964,1963,1962,1961,;" &¬¨"1950,1959,1958,1957,1956,1955,1954,1953,1952,1951,;" &¬¨"1940,1949,1948,1947,1946,1945,1944,1943,1942,1941,;" &¬¨"1930,1939,1938,1937,1936,1935,1934,1933,1932,1931,;" &¬¨"1920,1929,1928,1927,1926,1925,1924,1923,1922,1921,;" &¬¨"Other;" into choicesput the value of 1 into lastItemget topLeft of targetget HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))if item 1 of it is "Other" thenask "Enter Year"if it is not empty thenput it into bkgnd field "year"end ifelseif item 2 of it is not emptythen put item 2 of it into bkgnd fld "year"elseif item 1 of it is not emptythen put item 1 of it into field "year"end ifend ifend chooseYearon fieldMsganswer "This is a data entry field."end fieldMsgon doPlayget name of backgroundput last word of it into bnameAnswer "Play through which cards?" with ¬¨"cancel" or "All cards" or bnameif it is "All cards" then show all cardselseput id of this card into startput empty into newrepeat until start = newgo to next card of this backgroundput id of this card into newwait 10 ticksif the mouseClick then exit repeatend repeatend ifend doPlayon doPrintanswer "Print Which?" with¬¨"Report..." or "Stack..." or "Card"get itdoMenu ("Print " & it)end doPrinton doResetglobal Pnumlock screendoShowSortFieldsrepeat with j = 1 to 6put empty into cd field ("P" & j)end repeatdoShowSortButtonsunlock screenput empty into Pnumend doReseton doShowSortButtonsshow button "set artist"show button "set title"show button "set content class"show button "set catalog number"show button "set recording label"show button "set year"show button "set format"end doShowSortButtonsglobal ThisKeyon doSetArtistglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetArtistend ifput "artist" into ThisKeydoCheckPhide button "set artist"unlock screenend doSetArtiston doSetTitleglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetTitleend ifput "title" into ThisKeydoCheckPhide button "set title"unlock screenend doSetTitleon doSetFormatglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetFormatend ifput "format" into ThisKeydoCheckPhide button "set format"unlock screenend doSetFormaton doSetContentClassglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetContentClassend ifput "content class" into ThisKeydoCheckPhide button "set content class"unlock screenend doSetContentClasson doSetRecordingLabelglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetRecordingLabelend ifput "recording label" into ThisKeydoCheckPhide button "set recording label"unlock screenend doSetRecordingLabelon doSetCatalogNumberglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetCatalogNumberend ifput "catalog number" into ThisKeydoCheckPhide button "set catalog number"unlock screenend doSetCatalogNumberon doSetYearglobal ThisKeylock screenget cd field "P6"if it is not empty thenexit doSetYearend ifput "year" into ThisKeydoCheckPhide button "set year"unlock screenend doSetYearon doCheckPglobal ThisKey,Pnumadd 1 to Pnumif the value of Pnum < 7then put ThisKey into cd field ("P" & Pnum)end doCheckPon doSearchglobal checkask "Search for what keyword?" with checkput it into checkfind string checkend doSearchon doSortNowlock screenrepeat with j = 1 to 6if cd field ("P" & j) is empty thenanswer "Six keys must be selected to sort"unlock screenexit doSortNowend ifend repeatput cd field "P1" into fldOneput cd field "P2" into fldTwoput cd field "P3" into fldThreeput cd field "P4" into fldFourput cd field "P5" into fldFiveput cd field "P6" into fldSixunlock screenif fldOne contains "artist" thensort by last word of first line of field fldOne & ¬¨field fldTwo & field fldThree & field fldFour & ¬¨field fldFive & field fldSixlock screendoSortCloseexit doSortNowend ifif fldTwo contains "artist" thensort by field fldOne & ¬¨last word of first line of field fldTwo & ¬¨field fldThree & field fldFour & ¬¨field fldFive & field fldSixlock screendoSortCloseexit doSortNowend ifif fldThree contains "artist" thensort by field fldOne & field fldTwo & ¬¨last word of line 1 of field fldThree & field fldFour & ¬¨field fldFive & field fldSixlock screendoSortCloseexit doSortNowend ifif fldFour contains "artist" thensort by field fldOne & field fldTwo & ¬¨field fldThree & last word of line 1 of field fldFour & ¬¨field fldFive & field fldSixlock screendoSortCloseexit doSortNowend ifif fldFive contains "artist" thensort by field fldOne & field fldTwo & ¬¨field fldThree & field fldFour & ¬¨last word of line 1 of field fldFive & field fldSixlock screendoSortCloseexit doSortNowend ifif fldSix contains "artist" thensort by field fldOne & field fldTwo & ¬¨field fldThree & field fldFour & ¬¨field fldFive & last word of line 1 of field fldSixlock screendoSortCloseexit doSortNowend ifsort by field fldOne & field fldTwo & ¬¨field fldThree & field fldFour & ¬¨field fldFive & field fldSixlock screendoSortCloseunlock screenend doSortNowon doSortCloseglobal Pnumrepeat with j = 1 to 6if cd field ("P" & j) is empty thenrepeat with k = 1 to jput empty into cd field ("P" & k)end repeatput empty into Pnumend ifend repeatdoHideSortFieldshide button "set artist"hide button "set title"hide button "set content class"hide button "set catalog number"hide button "set recording label"hide button "set year"hide button "set format"hide button "Reset"hide button "Sort Now"hide button "Cancel"hide cd field "SORTING OPTIONS"pop cardend doSortCloseon doDeleteanswer "Are you sure you want to delete this card?" with "cancel" or "delete"if it is "delete" thenvisual effect wipe down to blackdoMenu delete cardend ifend doDeleteon doRecLabelput "Other;A,A&M,Archiv,Arista,Atlantic,;C,Capitol,Chandos,Chrysalis," &¬¨"Columbia,Concord,;D,Delos,Denon,Deutsche Grammophon,DRM,;E,ECM," &¬¨"Elektra,EMI-Angel,Epic,Erato,;G,Geffen,GRP,;H,Harmonia Mundi," &¬¨"Hyperion,;I,Intima-Enigma,Island,;L,L'Oiseau-Lyre,London,Legato,;" &¬¨"M,MCA,Motown,Muse,;N,New World,Newport Classics,;P,Philips," &¬¨"Pro Arte,;R,RCA,Rhino,;S,Sire,;T,Telarc,;V,Vanguard,Virgin,;W,Warner" into choicesput the value of 1 into lastItemget topLeft of targetget HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))if item 1 of it is "Other" thenask "Enter Recording Label"if it is not empty thenput it into bkgnd field "recording label"end ifelseif item 2 of it is not emptythen put item 2 of it into bkgnd fld "recording label"end ifend doRecLabelon doSortlock screenshow cd field "SORTING OPTIONS"doShowSortButtonsdoShowSortFieldsshow button "Reset"show button "Sort Now"show button "Cancel"unlock screenend doSorton doShowSortFieldsshow cd field "P1"show cd field "P2"show cd field "P3"show cd field "P4"show cd field "P5"show cd field "P6"end doShowSortFieldson doHideSortFieldshide cd field "P1"hide cd field "P2"hide cd field "P3"hide cd field "P4"hide cd field "P5"hide cd field "P6"end doHideSortFieldson doPowervisual effect iris close to blackanswer "POWER off.  Exit to which?" with "Cancel" or "Home" or "Finder"if it is not "Cancel" thenif it is "Home" then doMenu itelse doMenu quit HyperCardelse answer "POWER on"end doPoweron startUphide menubarend startUpon setVideo1if the hilite of bkgnd button "Vol I" is false thenset the hilite of bkgnd button "Vol I" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseshow bkgnd field "title"hide bkgnd field "IItitles"hide bkgnd field "IIItitles"end ifend setVideo1on setVideo2if bkgnd field "numVol" contains "1" thenhide bkgnd field "IItitles"hide bkgnd field "IIItitles"elseif the hilite of bkgnd button "Vol II" is false thenset the hilite of bkgnd button "Vol II" to trueset the hilite of bkgnd button "Vol I" to falseset the hilite of bkgnd button "Vol III" to falsehide bkgnd field "title"show bkgnd field "IItitles"hide bkgnd field "IIItitles"end ifend ifend setVideo2on setVideo3if bkgnd field "numVol" contains "3" thenif the hilite of bkgnd button "Vol III" is false thenset the hilite of bkgnd button "Vol III" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol I" to falsehide bkgnd field "title"hide bkgnd field "IItitles"show bkgnd field "IIItitles"end ifelsehide bkgnd field "IIItitles"end ifend setVideo3on setTape1if the hilite of bkgnd button "Vol I" is false thenset the hilite of bkgnd button "Vol I" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseshow bkgnd field "IA"show bkgnd field "title"show bkgnd field "IAperf"show bkgnd field "artist"show bkgnd field "IB"show bkgnd field "IBtitle"show bkgnd field "IBperf"show bkgnd field "IBartist"hide bkgnd field "IIA"hide bkgnd field "IIAtitle"hide bkgnd field "IIAartist"hide bkgnd field "IIAperf"hide bkgnd field "IIB"hide bkgnd field "IIBtitle"hide bkgnd field "IIBartist"hide bkgnd field "IIIA"hide bkgnd field "IIIAtitle"hide bkgnd field "IIIAartist"hide bkgnd field "IIIAperf"hide bkgnd field "IIIB"hide bkgnd field "IIIBtitle"hide bkgnd field "IIIBartist"hide bkgnd field "IIIBperf"end ifend setTape1on setTape2if bkgnd field "numVol" contains "1" thenset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseelseif the hilite of bkgnd button "Vol II" is false thenset the hilite of bkgnd button "Vol II" to trueset the hilite of bkgnd button "Vol I" to falseset the hilite of bkgnd button "Vol III" to falsehide bkgnd field "IA"hide bkgnd field "title"hide bkgnd field "IAperf"hide bkgnd field "artist"hide bkgnd field "IB"hide bkgnd field "IBtitle"hide bkgnd field "IBartist"hide bkgnd field "IBperf"show bkgnd field "IIA"show bkgnd field "IIAtitle"show bkgnd field "IIAartist"show bkgnd field "IIAperf"show bkgnd field "IIB"show bkgnd field "IIBtitle"show bkgnd field "IIBartist"show bkgnd field "IIBperf"hide bkgnd field "IIIA"hide bkgnd field "IIIAtitle"hide bkgnd field "IIIAartist"hide bkgnd field "IIIAperf"hide bkgnd field "IIIB"hide bkgnd field "IIIBtitle"hide bkgnd field "IIIBartist"hide bkgnd field "IIIBperf"end ifend ifend setTape2on setCD1if the hilite of bkgnd button "Vol I" is false thenset the hilite of bkgnd button "Vol I" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseshow bkgnd field "Isel"show bkgnd field "title"show bkgnd field "Iperf"show bkgnd field "artist"hide bkgnd field "IIsel"hide bkgnd field "IItitle"hide bkgnd field "IIartist"hide bkgnd field "IIperf"hide bkgnd field "IIIsel"hide bkgnd field "IIItitle"hide bkgnd field "IIIartist"hide bkgnd field "IIIperf"end ifend setCD1on setCD2if bkgnd field "numVol" contains "1" thenset the hilite of bkgnd button "Vol I" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseshow bkgnd field "Isel"show bkgnd field "title"show bkgnd field "Iperf"show bkgnd field "artist"hide bkgnd field "IIsel"hide bkgnd field "IItitle"hide bkgnd field "IIartist"hide bkgnd field "IIperf"hide bkgnd field "IIIsel"hide bkgnd field "IIItitle"hide bkgnd field "IIIartist"hide bkgnd field "IIIperf"elseif the hilite of bkgnd button "Vol II" is false thenset the hilite of bkgnd button "Vol II" to trueset the hilite of bkgnd button "Vol I" to falseset the hilite of bkgnd button "Vol III" to falsehide bkgnd field "Isel"hide bkgnd field "title"hide bkgnd field "Iperf"hide bkgnd field "artist"show bkgnd field "IIsel"show bkgnd field "IItitle"show bkgnd field "IIartist"show bkgnd field "IIperf"hide bkgnd field "IIIsel"hide bkgnd field "IIItitle"hide bkgnd field "IIIartist"hide bkgnd field "IIIperf"end ifend ifend setCD2on setLP1if the hilite of bkgnd button "Vol I" is false thenset the hilite of bkgnd button "Vol I" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseshow bkgnd field "IAsel"show bkgnd field "title"show bkgnd field "Iperf"show bkgnd field "artist"show bkgnd field "IBsel"hide bkgnd field "IIAsel"hide bkgnd field "IItitle"hide bkgnd field "IIartist"hide bkgnd field "IIperf"hide bkgnd field "IIBsel"hide bkgnd field "IIIAsel"hide bkgnd field "IIItitle"hide bkgnd field "IIIartist"hide bkgnd field "IIIperf"hide bkgnd field "IIIBsel"end ifend setLP1on setLP2if bkgnd field "numVol" contains "1" thenset the hilite of bkgnd button "Vol I" to trueset the hilite of bkgnd button "Vol II" to falseset the hilite of bkgnd button "Vol III" to falseshow bkgnd field "IAsel"show bkgnd field "title"show bkgnd field "Iperf"show bkgnd field "artist"show bkgnd field "IBsel"hide bkgnd field "IIAsel"hide bkgnd field "IItitle"hide bkgnd field "IIartist"hide bkgnd field "IIperf"hide bkgnd field "IIBsel"hide bkgnd field "IIIAsel"hide bkgnd field "IIItitle"hide bkgnd field "IIIartist"hide bkgnd field "IIIperf"hide bkgnd field "IIIBsel"elseif the hilite of bkgnd button "Vol II" is false thenset the hilite of bkgnd button "Vol II" to trueset the hilite of bkgnd button "Vol I" to falseset the hilite of bkgnd button "Vol III" to falsehide bkgnd field "IAsel"hide bkgnd field "title"hide bkgnd field "Iperf"hide bkgnd field "artist"hide bkgnd field "IBsel"show bkgnd field "IIAsel"show bkgnd field "IItitle"show bkgnd field "IIartist"show bkgnd field "IIperf"show bkgnd field "IIBsel"hide bkgnd field "IIIAsel"hide bkgnd field "IIItitle"hide bkgnd field "IIIartist"hide bkgnd field "IIIperf"hide bkgnd field "IIIBsel"end ifend ifend setLP2on goNextvisual effect dissolve very fastgo to next card of this backgroundend goNexton goPrevvisual effect dissolve very fastgo to prev card of this backgroundend goPrevon goTapevisual effect barn door open fastgo to any card of background "Tape"end goTapeon goVideovisual effect barn door open fastgo to any card of background "Video"end goVideoon goCDvisual effect barn door open fastgo to any card of background "CD"end goCDon goLPvisual effect barn door open fastgo to any card of background "LP"end goLPon doContentClassput "Big Band;Classical,Ancient,Baroque,Classical,Romantic," &¬¨"20th Century,Collection;" &¬¨"Country - Western;International;Jazz;New Age;Popular;" &¬¨"Rap;Rock,50's,60's,70's,80's,90's,Acid,Alternative,Folk," &¬¨"Grateful Dead,Heavy Metal,Progressive,Punk,;" &¬¨"Rythym and Blues;Soul;Soundtrack;Vocal;Other;" into choicesput the value of 1 into lastItemget topLeft of targetget HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))if item 1 of it is not empty thenput item 1 of it into bkgnd fld "content class"if item 1 of it is "Classical"then put (item 1 of it && item 2 of it) into field "content class"if item 1 of it is "Rock"then put (item 1 of it & "-" & item 2 of it) into field "content class"if item 1 of it is "Other" thenask "Enter Music Class"if it is not emptythen put it into bkgnd fld "content